100 REM
110 REM  PROGRAMM ZUM AENDERN DER
120 REM  STARTADRESSE EINES FILES
130 REM  AUF  $6000 (KOALAPAINTER
140 REM  BILDER START)
150 REM
160 REM
170 INPUT "FILENAME ";A$
180 :
190 OPEN 2,8,15
200 OPEN 3,8,3,"#":GOSUB340
210 OPEN 1,8,0,A$ :GOSUB340
220 :
230 PRINT#2,"M-R"+CHR$(24)+CHR$(0)+CHR$(2)
240 GET#2,TR$,SE$
250 PRINT#2,"U1:"3;0;ASC(TR$+CHR$(0));ASC(SE$+CHR$(0)):GOSUB340
260 PRINT#2,"B-P";3;2
270 PRINT#3,CHR$(0);CHR$(96);
280 PRINT#2,"U2:"3;0;ASC(TR$+CHR$(0));ASC(SE$+CHR$(0)):GOSUB340
290 CLOSE1
300 CLOSE2
310 CLOSE3
320 END
330 :
340 INPUT#2,F,F$,FT,FS:IF F=0 THEN RETURN
350 PRINT "DISK-FEHLER"
360 PRINTF;F$;FT;FS
370 GOTO 290